home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Bible / BIBLE08.ARC / SEQ READ 64 / 128 (.txt)
Commodore BASIC  |  2019-04-13  |  4KB  |  136 lines
  1. 10 PRINT"[147]";:POKE53280,0:POKE53281,0:DIMP$(145):S=0:PR=0:GOTO80
  2. 12 CLOSE15:OPEN15,8,15,"U;":PRINT#15,"I0":INPUT#15,EN$,EM$,TK$,SR$:CLOSE15
  3. 14 IFEN$<>"00"THENGOSUB262:GOTO12
  4. 16 RETURN
  5. 18 GOSUB12
  6. 20 P=1:CLOSE2:OPEN2,8,0,"$0:*=S":FOR I=1TO34:GET#2,B$:IF B$=""THENB$=CHR$(0)
  7. 21 NEXTI
  8. 22 P$(P)="":GET#2,B$,B$
  9. 24 GET#2,B$:IFSTTHEN46
  10. 26 IFB$<>CHR$(34)THEN24
  11. 28 GET#2,B$:IFB$=""THENB$=CHR$(0)
  12. 30 B=ASC(B$):IFB<32THENB$=CHR$(63)
  13. 32 IFB>127THENIFB<160THENB$=CHR$(63)
  14. 34 IFB=34THEN38
  15. 36 P$(P)=P$(P)+CHR$(B):GOTO28
  16. 38 GET#2,B$:IFB$=CHR$(32)THEN38
  17. 40 GET#2,B$:IFB$<>""THEN40
  18. 42 IFLEN(P$(P))>0THENP=P+1
  19. 44 GOTO22
  20. 46 CLOSE2:P=P-1
  21. 48 IFP<1THEN70
  22. 50 H=1:I=1:J=16:IFJ>PTHENJ=P
  23. 52 PRINT"[159]":K=H:FORL=ITOJ:IFL=1THENM=K
  24. 54 IFL=2THENPRINT
  25. 56 PRINT""LEFT$(P$(K)+BL$,16)"
  26. 58 K[178]K[170]1:[139]K[177]P[167]K[178]1
  27. 60 [130]:[142]
  28. 62 H[178]H[170]1:[139]H[177]P[167]H[178]1
  29. 64 [141]52:[142]
  30. 66 H[178]H[171]1:[139]H[179]1[167]H[178]P
  31. 68 [137]64
  32. 70 [153]"OPEN"[166]242)"NO FILES ON DISK"
  33. 72 [153]:[153]"PRESS RETURN TO
  34. 74 PRINT"CONTINUE.":GOSUB258
  35. 76 GETV$:IFV$<>CHR$(13)THEN76
  36. 78 PRINT"[147]";:S=0:GOTO80
  37. 80 LF=54272:HF=LF+1:WF=LF+4:VL=LF+24:FORMU=LFTOVL:POKEMU,0:NEXT:TP=0:TC=1
  38. 82 POKELF+5,64:POKELF+6,128:POKEVL,15:BL$="                "
  39. 84 IFS=0THENS=1:GOSUB210
  40. 86 GOSUB18
  41. 88 GOSUB258
  42. 90 GETV$:GETV$:GETV$
  43. 92 GETV$:IFV$=""THEN92
  44. 94 IFV$=CHR$(13)THEN134
  45. 96 IFV$="1"THENGOSUB110:GOTO90
  46. 98 IFV$="3"THENGOSUB122:GOTO90
  47. 100 IFV$="5"THENRUN
  48. 102 IFV$="7"THENEND
  49. 104 IFV$=CHR$(17)ORV$=CHR$(29)THENGOSUB62:GOTO90
  50. 106 IFV$=CHR$(145)ORV$=CHR$(157)THENGOSUB66:GOTO90
  51. 108 GOTO90
  52. 110 IFTP=0THENTP=1:GOTO114
  53. 112 TP=0
  54. 114 PRINT"[154]"TAB(240)TAB(240)TAB(194);
  55. 116 IFTP=0THENPRINT"OFF"
  56. 118 IFTP=1THENPRINT" ON"
  57. 120 RETURN
  58. 122 IFTC=0THENTC=1:GOTO126
  59. 124 TC=0
  60. 126 PRINT"[154]"TAB(240)TAB(240)TAB(232);
  61. 128 IFTC=0THENPRINTCHR$(142)"UPPER"
  62. 130 IFTC=1THENPRINTCHR$(14)"LOWER"
  63. 132 RETURN
  64. 134 PRINT"[147]":POKE53280,6:POKE53281,3
  65. 136 IFTP=0ORTP=1ANDPR=1THEN144
  66. 138 PRINTSPC(47)"[144]PLEASE TURN ON YOUR PRINTER."
  67. 140 PRINTSPC(50)"THEN PRESS RETURN.":PR=1:GOSUB258
  68. 142 GETV$:IFV$<>CHR$(13)THEN142
  69. 144 IFTC=0THENIFTP=1THENOPEN4,4:R=PEEK(144)
  70. 146 IFTC=1THENIFTP=1THENOPEN4,4,7:R=PEEK(144)
  71. 148 IFR<>0THENPR=0:GOTO134
  72. 150 PRINT:PRINTSPC(1)"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  73. 152 PRINT"[221] PRESS SPACEBAR TO TOGGLE PAUSE.    [221]"
  74. 154 PRINT"[221] PRESS 1 TO ABORT LISTING.          [221]"
  75. 156 PRINT"[221] PRESS 3 TO INCREASE LISTING SPEED. [221]"
  76. 158 PRINT"[221] PRESS 5 TO REDUCE LISTING SPEED.   [221]"
  77. 160 PRINT"[221]                                    [221]"
  78. 162 PRINT"[221]      PRESS SPACEBAR TO START.      [221]"
  79. 164 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB258
  80. 166 GETV$:IFV$<>CHR$(32)THEN166
  81. 168 CLOSE2:OPEN2,8,2,P$(M)+",S,R"
  82. 170 IFSTTHEN186
  83. 172 GET#2,W$:PRINTW$;:IFTP=1THENPRINT#4,W$;
  84. 174 GETV$:IFV$="1"THEN186
  85. 176 IFV$="3"THENDE=DE-10:IFDE<1THENDE=1
  86. 178 IFV$="5"THENDE=DE+10:IFDE>1000THENDE=1000
  87. 180 IFV$=CHR$(32)THENGOSUB204
  88. 182 FORT=1TODE:NEXT
  89. 184 GOTO170
  90. 186 CLOSE2:IFPR=1THENPRINT#4
  91. 188 CLOSE4
  92. 190 PRINTCHR$(14)SPC(44)"END OF FILE....."
  93. 192 PRINTSPC(84)"PRESS RETURN TO CONTINUE.":GOSUB258
  94. 194 GETV$:IFV$<>CHR$(13)THEN194
  95. 196 PRINT"[147]";:POKE53280,0:POKE53281,0:GOSUB210:GOSUB64:GOTO88
  96. 198 GOSUB258
  97. 200 GETV$:IFV$<>CHR$(32)THEN200
  98. 202 RETURN
  99. 204 GOSUB258
  100. 206 GETV$:IFV$<>CHR$(32)THEN206
  101. 208 RETURN
  102. 210 POKE53265,PEEK(53265)AND239:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  103. 212 [153]" (null)       SEQUENTIAL FILE READER       (null)"
  104. 214 [153]" (null)           64/128 VERSION           (null)"
  105. 216 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
  106. 218 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  107. 220 [153]" (null)                (null)WAITSYS   <<< LOAD ME <<<OPEN"
  108. 222 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
  109. 224 [153]" (null)                (null)DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
  110. 226 [153]" (null)                (null)DEF(null) 1 TOGL PRINTER (null)OPEN"
  111. 228 [153]" (null)                (null)DEF(null) 3 TOGL CHR SET (null)OPEN"
  112. 230 [153]" (null)                (null)DEF(null) 5 GET NEW DISK (null)OPEN"
  113. 232 [153]" (null)                (null)DEF(null) 7 QUIT PROGRAM (null)OPEN"
  114. 234 [153]" (null)                (null)DEF/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
  115. 236 [153]" (null)                (null)"
  116. 238 [153]" (null)                (null)CONTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
  117. 240 [153]" (null)                (null)CONT(null) PRINTER    OFF (null)OPEN"
  118. 242 [153]" (null)                (null)CONT(null) CHARSET  LOWER (null)OPEN"
  119. 244 [153]" (null)                (null)CONT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<OPEN"
  120. 246 [153]" (null)                (null)CONT(null)USE CURSOR KEYS (null)OPEN"
  121. 248 [153]" (null)                (null)CONT(null)TO SCROLL LIST. (null)OPEN"
  122. 250 [153]" (null)                (null)CONT(null)PRESS RETURN TO (null)OPEN"
  123. 252 [153]" (null)                (null)CONT(null)READ TOP FILE.  (null)OPEN"
  124. 254 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCONT/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[151]53265,[194](53265)[176]16
  125. 256 TP[178]0:PR[178]0:[142]
  126. 258 [129]MU[178]1[164]2:[151]LF,30:[151]HF,134:[151]WF,17:[129]T[178]1[164]200:[130]
  127. 260 [151]WF,16:[151]LF,0:[151]HF,0:[129]T[178]1[164]20:[130]:[130]:[161]V$:[161]V$:[161]V$:[142]
  128. 262 [153]"LOADPOKE":[151]53280,2:[151]53281,15
  129. 264 [153][163]208)"DRIVE ERROR  : "EN$
  130. 266 [153][163]8)"ERROR MESSAGE: "EM$
  131. 268 [153][163]8)"TRACK        : "TK$
  132. 270 [153][163]8)"SECTOR       : "SR$
  133. 272 [153][163]168)"PRESS RETURN TO CONTINUE":[161]V$:[161]V$:[161]V$:[141]258
  134. 274 [161]V$:[139]V$[179][177][199](13)[167]274
  135. 276 [151]53280,0:[151]53281,0:[153]"LOAD";:[141]210:[142]
  136.